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000000 PPPPPPPP cccccccc 000000 MM MM MM MM AAAAAA IIIIII NN 
000000 PPPPPPPP ccccccce 000000 MM MM MM MM AAAAAA HII] NN 
00 00 PP PP CC 00 00 M MMMM MMMM 6MMMM AA AA Il NN 
00 00 PP PP CC MMMM MMMM «6OMMMM MMMM «AA AA Il NN 
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00 oo P cc 00 00 MM MM MM MM AAAAAAAAAA I] NN 
00 00 PP cc 00 00 MM MM MM MM AAAAAAAAAA Il NN 
00 00 PP cc 00 00 MM MM MM MM AA AA I] NN 
00 00 PP cc 00 00 MM MM MM MM AA AA II NN 
000000 PP ccccccce 000000 MM MM MM MM AA aA IIIIII NN 
000000 PP ccccccce 000000 MM MM MM MM AA AA III! NN 
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IN 1$-sep-1966 01:55:28 yayett Bligse32 4.00743 | : 


rae (BL 18832), 


RAIN = OPCOM_MAIN 


MODULE OPCSOPCOMMAIN 
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‘) i 

0 ie COPYRIGHT (c) 1978, 1980 1982, 1984 BY 
1 1 ie DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
: ; is ALL RIGHTS RESERVED. 
1 1 ie TH HIS SOFTWARE ie 4 tit UNDER A LICENSE AND MAY BE USED AND COPIED 
1 1 ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
1 1 ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
1 1 ie COPIES THEREOF MAY NOT BE PROVIDED OR OT WISE MADE AVAILABLE TO ANY 
: 2 ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
1 1 it 


ie THE ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

ie AND SoS NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

i: CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
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lee 

! FACILITY: 

OPCOM 

i ABSTRACT: 

i This module contains the top Leve logic. for OPCOM, the 
OPerator COmunication Manager. will provide the 


interface between a user and an ot on the system. 
Specifically, this module contains the routines responsible 


for starting OPCOM in an orderly manner, receiving requests 
and dispatching them to the proper handler, and for the 
orderly shutdown of OPCOM. 

i Environment: 

VAX/VMS operating system. 

i Author: 

Steven T. Jeffreys 

i Creation date: 

March 10, 1981 


i Revision history: 
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BEGIN 


v03-006 


v03-005 


v03-004 
v03-003 


v03-002 


v03-001 R 


v02-003 


v02-002 


Soseoct9Rs 01:55:28 YMKeIt BL igs=82 yi 0n743 | 


CWH3006 CW Hobbs 25-Jul-1984 
Remove DEBUG reut ines to save disk space on kit. 
CWH3169 CW Hobbs 5-May-1984 
second < pose fe er aglust rewide 0 PCOM: 
1 and MAYA microcode sage 
~ ag eM rte assendly code for OPCS! INCR EAS *STRESS and 
OPCSCHECK_POOL functions 

CWH3004 CW Hobbs 22- atte -1983 
Make dump conditional on a logical name OPCSDUMP_MAILBOX. 
CWH3003 CW Hobbs 16-Sep-1983 
Add CLUMBX (connection manager) message dispatch. 

CWH3002 CW Hobbs 30-Jul-1983 


Various and sundry things to make OPCOM distributed 
across the cluster. 


RV3A1 obert L pagrs ort 5-Apr-1982 
Aided MSGS _UDASOMVER a “MSG DUPUNITNO. 
$TJ0156 Steven T. Jeffreys 05-Feb-1982 


dded two new mount verification posseaes to the 
dispatcher table; MVCOMPLETE and MVABORTED. 


$TJ0066 Steven T. Jeffreys 14-Jul-1981 


y 
Changed function dispatcher to recognize the mount 
verification messages. 


' Start of OPCOMMAIN 


LIBRARY ‘SYSS$LIBRARY: LIB. L352" 
LIBRARY *LIB$:OPCOMLIB'; 


ree af 


SS 


] 

8 | 
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weet 12-Sep- 38 93:35:23 OPCOM. SRCTOPCOMMAIN. 03551 . (2) | 
: 98 44 } GLOBAL ROUTINE OPCOM_MAIN : NOVALUE = | . 
: 4 39 1 t+ | ; 
3 ; ; ? : } Functional description: : 
is : 1 ¢ 1 i This is the main routine for OPCOM. When OPCOM is ; 
. 1 1! started, control is transfered here. The main routine ; 
; 105 1 1} will call a special initialization routine to set things : 
. ¥ 105 1! up. and then enter its main loop, servicing requests as : 
: 4 : : } they arrive. : 
> 109 108 | i Input: ; 
; 110 1 1! : 
Bi esa 8 i pares : 
: 118 11g 1! Implicit Input: ; 
3; (116 11 1! : 
Bi aE | Bt eee : 
: 119 orig | i Output: : 
; #4118 011 1! 3 
qo ARG). : 
: 1 1 01 9 Implict output: : 
; ; 5 4 § } ; None. : 
; ; 2 0 2 ! | Side effects: ; 
0 | Se te heer : 
: 129 0128 1 ! Routine value: : 
; 130 0129 1! 3 
: 131 0130 1! None. : 
2.) ee 3 
: 134 0138 > BEGIN ! Start of OPCOM_MAIN ; 
: 133 0134 : 
: 439 O13 5 MACRO : 
: 138 0137 MSGTYPE = 0,0,16,0%, !. Message type code ; 
> 139 0138 ROSTCODE = 38.0.8, 08, i Request type code ; 
: 129 > CLM_CODE = 39,0,8,0%; ! Request type code for cluster message : 
; 14 141 ¢ GLOBAL | 
: 144 148 FINISHED : LONG INITIAL (FALSE); ! Boolean used for loop control ; 
; 146 145 2 EXTERNAL ROUTINE F 
; (14 Ac8 DUMP _LOG FILE ! Make a formatted ome in the log file : 
: 148 14 SHARE_FAO_BUFFER, i Run something through $FAO ; 
3 149 148 OPCOM” INIT : NOVALUE, ! OPCOM initialization 3 
; 150 149 TIME STAMP : NOVALUE, ! Does periodic timestamp : 
3 13) o131 WRITE_LOG_FILE, ! Write random string to the log file : 
: 138 138 i Various message handlers for old format messages. : 
; 15% 015 | 


n 8 | 
OPCSOPCOMMAIN 16-Sep-1984 01:33:29 AX-11 Bliss-32 V4.0-74 Page 4 
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| 

3; 155 154 UNKNOWN_HANDLER : NOVALUE, ! Unknown message type handler : 
, ¥ : 155 CLUMBX_RANDLER : NOVALUE, ! Cluster mailbox messages (special format) ; 
3; 3 1 § DEVICE HANDLER : NOVALUE, ! Device online/offline messages (special format) : 
; 158 1 TERME _RANDLER : NOVALUE, ! Enable operator message handler | 3 
; 159 1 8 LOGI _RANDLER : NOVALUE, ! Init logfile message handler | ; 
; 160 1 RQST_HANDLER : NOVALUE, ' Request handler | ; 
; «(161 160 RPLY_HANDLER : NOVALUE, ! Reply handler ; 
3 166 161 CNC NDLER : NOVALUE, ' Cancel handler . 
; 16 166 STS_RANDLER : NOVALUE, ! Status handler : 
; 198 S197 SECO_HANDLER : NOVALUE, ! Security message handler : 
3 196 8193 } The following are message handlers for the new format messages. : 
; 168 bie6 OPRENABLE HANDLER : NOVALUE, ! Operator enable handler : 
> «169 168 LOGF ILE_HANDLER : NOVALUE, ' Logfile control handler : 
; 170 8182 REQUEST_HANDLER : NOVALUE, ' Request handler : 
. 0170 REPLY_HANDLER : NOVALUE, ' Reply handler : 
; \7¢ 0171 C HANDLER NOVALUE, ' Cancel handler : 
; V7 b17¢ STATUS HANDLER NOVALUE, ' Status handler : 
; 174 017 HUTDOQN_HANDLER NOVALUE, ! Shutdown handler : 
3; 175 0174 SECURITY HANDLER : NOVALUE, ! Security handler : 
3; 176 0175 ! DEBUG_HANDLER : NOVALUE, ! Debug handler, comment out when not needed 3 
: ivr 3178 CLUSMSG_HANDLER : NOVALUE; ! Cluster message handler : 
; 179 0178 EXTERNAL : 
; 180 0179 : 
; «(181 0180 GLOBAL_STATUS : BITVECTOR, ! Global status bits : 
3 18 a OPER_MBX_CHAN : WORD; ! Operator mailbox channel ; 
> 184 0183 LOCAL : 
; «185 0184 ; 
; «186 0185 RDB : $ref_bblock, ! RDB control structure ; 
; «(187 0186 10S8 : $Sbblock bea. ! 1/0 status block ; 
; 188 0187 REQUEST _BUFFER $bblock COPCSK_MAXREADJ, ! Request receive buffer : 
; «6189 0188 REQUEST_DESC : $desc_block, ! Request buffer descriptor 3 
; 190 0189 STATUS : LONG; . 
; «191 0190 : 
: 136 B13) ! we 3 
3; #19 136 ! Perform the necessary initialization. : 
3 194 019 : : 
; 195 0194 OPCOM_INIT (); : 
> 196 0195 : 
: 197 0196 ‘ ; : 
; 138 3934 ; Initialize the request buffer descriptor. | : 
: 200 0199 REQUEST_DESC CDSCS$B_DTYPE] = 0; 
: 201 0200 REQUEST_DESC COSC$B_CLASS) = 0; 
; 4 0 Bt REQUEST_DESC [CDSCSA_POINTER] = REQUEST_BUFFER; 
: 204 0 08 ' 
: 205 04 ! Enter the main Loop. 
3; 206 05 : 
: 207 $ WHILE NOT .FINISHED DO 
3 4 i BEGIN 
; : | 
; 210 0209 ! If a timestamp is pending and OPCOM is not busy with 
3; aii 0210 ! a request, then do the timestamp. 


p-l9Be 42:50:48 — LOPcON. SRCIOPCOMMAIN. B39; 


LOBAL STATUS CGBLSTS KB 
FEN CcCOALASTATUS GBCSTS 
TIME STAMP (); 


ust? = ! OPCOM is not busy 


FALSE; 
_TIMESTAMP_PENDING] 


' 
Issue a read request to the operator mailbox. 


if NOT (STATUS = SQIOW(FUNC = 10$_READVBLK 
HAN = .OPER_MBX_CHAN, 


vuvUvvUU 
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hMorerfofnonoforny 
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IOSB, 
EFN_K_MAIL 
QUEST "BUFF 
“ CS$K_MAXREA 
THEN 

$signal_stop (.STATUS); 
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ne 

“ou 
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MINIONS ToToTonononorfnnororoforoforonororonofory) 


buf; 
i Strntog (Lognam=%ASCID *OPCSDUMP_MAILBOX', rsllen=out_dsc, rslbuf=out_dsc) EQL ss$_normal 
- DUMP_LOG_FILE (REQUEST_DESC, ZASCID ‘Record received in mailbox'); 


o 
WO OODNOUE WN 09 OD NOAUE WN 0 ODNAUE WIN $0 OODNOAOUES WN" OO DONOULS Ww 


i For debugging, check the cluster configuration at every mailbox read, To put additional 
! stress on the system, request acks from every node if the configuration has changed. Make 


2 : 

; ; } Check the status of the read. 

3 3 if NOT (STATUS = .10SB [0,0,16,03) 

Ms] H rans NEQ SS$_ENDOFFILE ! A COPY to _MBA2: will produce this 
38 3 $signal_stop (.STATUS); 

i 3 ! 

41 st i Since OPCOM now has a request to service, set the GBLSTS_K_BUSY bit. 
eg 6 : This serves as an interlock to prevent the asynchronous. 
3t4 st } timestamp function from going off at an inappropriate time. 
4s 34 GLOBAL_STATUS [GBLSTS_K_BUSY] = TRUE; 

47 4 H 
HH 34 Set the request buffer length in the descriptor. 

20 5s REQUEST_DESC CDSC$W_LENGTH] = .10SB (2,0,16,0); 

5 5 : 

38 $2 : For debugging, write the message into the log file, and flush 
55 5 BEGIN 

56 5 LOCAL 

57 5 icl_buf : $bvector [16], 

58 5 out_ ss : VECTOR C2, LONG]; 

59 5 out_dsc = 16; 

60 5 out-dsc (1) = cl 

; 

585 é 
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-Sep-1 OPCOM. SRC SPCOMMAIN.839; 31 (2) 
A 9 ! all this petee switchable by Get tates ¢ the logical mame OPCSINCREASE_STRESS (presence of : 
; 5 ? the name is significant, not its value). : 
. Be L LIF XVARIANT GTR O ! Only include if /VARIANT specified : 
3 af U 027 THEN : 
; 274 U 027 BEGIN | ; 
3 <r U 0274 OCAL Lcl buf : Soues tor C16], out.dsc : V CTOR C2, LONG]; : 
: ef U 0275 XTERNA lel=csid, no q,head : vector (2, long); ; 
: 27 U i: EXTERNAL ROUTINE clusutil ont fToures clusmsg_ack_please; ; 
3 A U 027 dsc (0 out dsc 9F s 3 
; ¥ ee Refine (Lognam=ZASCID "OPCSIN Wenente’ _STRESS', rsllen=out_dsc, rslbuf=out_dsc) EQL ss$_normal | : 
: 281 U 0280 | ; 
; § . 1 Pct clusutil_configure () ! If true, then a node has come or gone ; 
; U : NBEGIN , 
; 5 U LOCAL ned | Sref _bblock; 3 
; U 0285 nod = .nod_h ; 
; y 86 UHILE ‘nod"NEO nod_ head £03 | ; 
; 289 U 0288 BEGIN | : 
; 290 U 0289 IF _ .nod Cnod_l_node_csid] NEQ .lcl_csid : 
; 291 U 0290 THEN : 
3 38 U 0291 ys : 
: 2 U 3 nod [ ack_pend] = false; : 
3 U 029 CLUSMSG oxte PLEASE (.nod); 3 
3 2 U 0294 ND; : 
; 296 U 0295 nod = nod Cnod_l_flink); : 
; 297 U 38 END; | $ 
; 298 U 029 END; 3 
3 U 0298 END; : 
; 300 U 0299 END; F 
3 0g +4 ZF I ! End of conditionally compiled message codes. ; 
; 0 | ; 
3 74 88 For debugging. check pool for corruption. N.B. this puts a severe load on the system at IPL 11! : 
3 3) t 0305 ZIF ZVARIANT GTR O ! Only include if /VARIANT specified 3 
; 30 U THEN 3 
; 308 U BEGIN : 
: U 8 LOCAL le ‘ buf : Sbvector [16], out_dsc : VECTOR (2, LONG); 3 
; 310 U 0309 out dsc [0] = 16; out_dSc C1} = (cl buf; : 
3 1 ¥ 19 1f egrrntos (Lognam=ASCl D "OPCSCHECR_POOL', rsllen=out_dsc, rslbuf=out_dsc) EQL ss$_normal : 
: 38 U 0318 ENBEGIN | : 
; 14 U 031 LOCAL : 
3 15 U 0314 arent st : VECTOR (2, LONG); : 
; 1 U 0315 — ROUTINE : 
oe U 6 gr -Poot ; 
3 18 U 031 argt ist o = : 
3 1 U \8 Schr. = 2k'1111"; : 
; 7 ? RNL (rout in=monitor pool, arglst=arglist); : 
3 § U 1 EN: i : : 
; 7 § FI ! End of conditionally compiled debugging code. : 
; 325 4 ; 
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Btepeten 7 Bae ore st to the proper handler. Some messages qe not come through SSNDOPR, 

' and requ spec l_ treatment. For qzanple. device on/offline messages are sent via a 
| 


! 
i 
call te “EKese DEVMSG, and are in a different format from most of the other known message types. 
SELECTONEU »-REQUEST_BUFFER CMSGTYPE] OF 


DO WHA RU Oe Or 


Pe et ot ot ot ot ot ot ot ot ot ot ot at tt a a a a a ak ee) 


SG$_CLUMBX) : CLUMBX_HANDLER (REQUEST_DESC); 
MSG$-DEVOFFLIN : DEVICE- WAND DL R (REQUEST-DESC): 
SG$"DEVONLIN] : DEVICE-HANDLER (REQUEST-DESC): | 
MSG$_DEVOFFLINX] : DEVICE “HANDL R (REQUEST-DESC): | 
MSG$-WRONGVOL] : DEVICE-HANDLER (REQUEST-DESC); 
MSG$_DEVWRILCK) Devic “HANDLER (REQUEST-DESC); 
MSGS “AVCOMPLET | DEVICE-HANDLER (REQUEST-DESC); 
MSGS“AVABORT D DEVICE-HANDLER (REQUEST-DESC): 
MSG$_UDASOMVER DEVICE-HANDLER (REQUEST-DESC);: 
0 “DUPUNIT DEVICE “HANDLER (REQUEST ~DESC): 
1 “TM7BMVER) : DEVICE-HANDLER (REQUEST-DESC); 
; MSGS_RC2SMVER) : DEVICE “HANDLER (REQUEST ~DESC): 
MSG$_RDRXMVER DEVICE"HANDLER (REQUEST~DESC) : 
4 MSG$_TUBIMVER] : DEVICE-HANDLER (REQUEST-DESC);: 
5 MSGS "MAYAMVER] : DEVICE-HANDLER (REQUEST~DESC): 
$ CMSG$_OPROST] : BEGIN 


; Dispatch the request to the proper handler. 


case -REQUEST_BUFFER CRQSTCODE] 
FR Y TO OPC$_X_REQUEST_END_MARK=-1 OF 


1 
The following request types are in the old format. 


| 
[OPC$_RQ rset : TERME HANDLER (REQUEST DESC); 


DPAAAAAAAIIV SSeS Ses 
MEUM OC ODNOVE WN OC ODBNAUS WOO VFWN—OOOnO 
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50 
2) 
38 
54 
55 
§ 
58 OPC$"RQ"LOGI I_RANDLER (REQ BESC); 
59 OPC$_RQ_RQS Rost ANDLER (REQUEST_DESC); 
0 PC$_RQ_REPLY) RPLY_HANDLER (REQUEST_DESC); 
1 CeCe RG CAMEL CNCL_HANDLER (REQUEST DESC); 
§ OPC$_RQ_STATUS STS_RANDLER (REQUEST _BESC); 
? OPCS RQ “SECURITY : SECO_HANDLER CREQUEST. D ESC; 
5 : The following request types are in the new format. 
[OPC$_X_OPRENAB El : OPRENABLE Wer ee sores! DESC); 
OPC$_X_LOGFILE] : Loe 1M toe REQUEST_DESC); 
193 : REQUES R (REQUEST DESC); 
0 OPC$_X"REPLY) : REPLY HENDLER et REOU DESC); 
71 OPC$_X_CANCEL] : C WH R (REQ _DESCS: 
03 ; STATUS HANDLER (REQUEST DESC); 
7 _  COPCSX"SHUTDOWN] : SHUTDOQN_HANDLER (REQUEST DESC); 
RR 4 OPCS x “SECURITY : SECURITY_HANDLER (REQUEST_DESC); 
e Debug handler, comment out when not necessary 
% : COPC$_x_DEBUG) : DEBUG_HANDLER (REQUEST_DESC); 
: Requests for cluster-related messages. 


vom IESIBHE CAHSEE ARCA AUSGEEAMATS. mom ead 


: ¢ ? FOPCS_K_CLUSASG) $ CLUSMSG_HANDLER (REQUEST_DESC); | 
: ¢ 2 Let the unknown message handler figure out what to do with it. 

; $ 4 INRANGE ,OUTRANGE :  UNKNOWN_HANDLER (REQUEST_DESC); 

; ; END; 

2 COTHERWISE] : yesin 

: 4 2 This is an unknown message type. Let the unknown message handler log it. 

; 94 4 UNKNOWN_HANDLER (REQUEST_DESC); 

; 95 END; 

; 9 3 TES; 

3 38 1 END. ! End of OPCOM_MAIN 


-TITLE OPCSOPCOMMAIN 
-IDENT \v04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
P.AAB: .ASCII \OPCSDUMP_MAILBOX\ 


4F 42 4C 49 41 4D SF 50 4D 55 44 24 43 50 


4F 00000 é 
58 O0000F 3 
10E0010 39810 P.AAA: .LONG i + 3 
00 “a 0014 “ADDRESS P.AAB 3 
64 65 76 69 65 63 65 72 20 64 72 6F 63 6 Ba018 P.AAD: <ASCII \Record received in mailbox\<0><0> : 
00 00 78 6F 62 6C 69 61 6D 20 6E€ 69 20 00027 3 
O10EQ01A 00034 P.AAC: .LONG 17694746 3 
00000000" 00038 ADDRESS P.AAD 3 


-PSECT $GLOBAL$,NOEXE,2 


| 
| 

00000000 00000 FINISHED:: 
-LONG 0 5 


-EXTRN DUMP LOG FILE, SHARE FAO. BUFFER 


-EXTRN OPCOM_ NTT TIME ST 

"EXTRN WRITEL G FILE. Sonn KNOWN HANDLER 

~EXTRN CLUMBR” a DLER. DEVICE RANDLER 

SEXTRN TERME AANDLER, LOGI_H 

-EXTRN RQST_AANDLEP, R LY, RA ER 
“EXTRN CNCLTHANDLER. STS AANDLER | 
-EXTRN SECU-HANDLER, SPRENABLE HANDLER | 
-EXTRN LOGFILE HANDLER 
SEXTRN REQUEST™ HANDLER | 
-EXTRN REPLY HANDLER, CANCEL _HANDLER | 
“EXTRN STATUS HANDLER SHUTDOWN. HANDLER | 
SEXTRN SECURITY HANDLER’ | 
-EXTRN CLUSHSG ANDLER | 
~EXTRN sisal LASTATUS OPER_MBX_CHAN 
“EXTRN au 1B$sTOP | 


“EXTRN ey S$T NLOG" 
.PSECT $CODE$,NOWRT,2 


eypen 2 4 ee 16-Sep-1984 91:33:29 AX-11 BL igs-32 V4.0-7%4 Page 7 


-Sep-1 OPCOM. SRCJOPCOMMAIN.B32; 1 (2) | 
; 
001¢ .ENTRY OPCOM_MAIN, Save R2,R3,R4 : 0097) ; 
54 09006 CF 4 MOVAB GLOBAL STATUS, R4 : | : 
E F5D cf MOVAB =2600(SP), SP : | ; 
00006 CF F CALLS #0, OPCOM’ INIT > 0194 | ; 
1A AE 8 CLAW REQUEST_DESC+2 + 0199 ; 
1C AF 20 AE 14 MOVAB REQUEST~BUFFER, REQUEST_DESC+4 : 201 | ; 
0 0000" CF i 19 1$: BLBC FINISHED, 2$ ; 0206 | ; 
64 40 8F 8A OOOTF 2%: BICB2 #64, GLOBAL_STATUS : 021 ; 
05 64 5 £1 3 . BBC Ae GLOBAL STATUS, 3$ ; § 8 ; 
0000G CF 0 FB CALLS #0, TIME_STAMP : 8 15 3 
— 7C C 3$: CLRO 20 = §P) 3 0226 : 
7E 7C 000 CLRO = $P) : ; 
7E 0Ag0 BF 3C 0 MOVZ2WL #2560, -(SP) : ; 
4 AE OF PUSHAB REQUEST_BUFFER : ; 
7E 7¢ 000 CLRQ = = (SP) : : 
eS : : 
7E 00006 CF Re 00 F MOVZWL OPER_MBX_CHAN, -(SP) : F 
3 DD 00044 PUSHL @# : ; 
000000006 99 FB 0046 CALLS #12, SYS$QI10W : : 
PS 90080 Brat STATUSS G8 
eh er tom Bot | 
00000870 «BF 53 1 S005A CMPL TATUS, #2160 + 0235 : 
OA 13 00061 BEQL F : 
3 od 0065 4$: PUSHL STATUS : 0237 ; 
000000006 00 01 FB 0065 CALLS #1, LIBSSTOP ; ; 
64 40 8F 38 9060 5$: BISB2 #64, GLOBAL_STATUS + 0244 : 
= = FA 48 BO 00078 ROU —Lasdee. REQUEST _DESC : O5ea 
04 AE 08 AE 9E $079 Vv LCL_BUF , OUT_DSC+4 3 0259 3 
7E 7¢ O07E CLRQ =-(SP) : 0260 : 
7E D4 0008 CLRL = = (SP) F ; 
OC AE OOF 008 PUSHAB OUT_DSC : : 
10 AE OF 9085 PUSHAB OUT~DSC : : 
0000" CF 9F 000 SHAB P.ARKA : ; 
000000006 00 6 FB 008¢ CALLS #6, SYSSTRNLOG ; ; 
1 D1 0009 CMPL~SséRO.. #1 : 3 
0c 12 00 3 NEQ 6$ : | : 
0000' CF i 9 PUSHAB P.AAC > 0262 ; 
00006 CF C05 fe 00098 CALLS. #9. DUMP. LOG. FILE : 
gb 20 AE 3¢ Bab 6$: MOVZ2WL OR due ST 6 FFER, R2 ; 0329 ; 
0059 =F 36 8 AB CAP R , #29 ; 0331 3 
18 AE 9F OOOAF PUSHAB REQUEST DESC ; : 
00006 CF 01 re Be CALLS #1, CLUMBX_HANDLER : ; 
1 B BRB ot 3 é 
05 Ht B9 7$ CMP Re. rh > 0332 ; 
BC BEQL : : 
" PHN ge a 7 : 
0050 «BF 2 Bi 000¢ CMPW = sR, «#80 > 0334 : 
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; - 0-74 Page 11 
1e-8eb= 138s 93:85:28 LOR com. BAC SBpcommain. $3; 1 (2) 


5 ; 0359 
76 11 0016C BRB 4 DESC : : 
ee Ron fe F oUROST HANDLER é 
00006 CF F051 bre 518 ; 0360 
FOF OO178 168:  PUSHAB REQUEST DESC ; ; 
18 AG : 17 CALLS Hi RPLY_HANDLER : : 
ae 6 JT O01 BRR aw REQUEST DESC 5 rom 
"Roe ee note “HANDLER 
00006 CF As BRB 358 ; 0362 : 
E OF O18C 188:  PUSHAB REQUEST_DESC : : 
18 Oy fe heike CALLS i STS"HANDLER : : 
00006 CF gr 8 oR Bre 358 ; 0363 : 
E $F 00196 198: PUSHAB REQUEST DESC 
18 AE OF 3138 ’ CALLS @# SECO HANDLER : : 
00006 CF a Se O19 208: GRE 08 ge : 0367, : 
18 AE OF 1A0 218 rae ag OPR LEMABLE HANDLER ; | : 
es © 8 1% Oota Pre aue aApauest pEsc _— 
18 AE 9F tes 228 Sry #1. LOG Uti “HANDLER : 
00006 CF te 4% OolB2 eR  aeauest Desc ; 0369 
18 AE OF 00187 me eee He REQUEST HANDLER oe 
T_DESC 
18 AE OF OO1BE 248 CALLS” #1, REPLY HANDLER : 
ners a 4f Ootee GRE aesiest ; 0371 
18 OF fe OoltB CALLS” BY. CANCEL HANDLER Be 
oe 0 4% do100 oe da aad ; 0372 
BOF FB OOIDS oe CMLS. BT STATUS HIANDLER 
00006 CF 2 fe OO1DA Tg: BRE 35h ; 0373 
18 OF FB OOOIDE CALLS”. 1.  SHUTDOUN_HANDLER 
00006 CF Pa 344 gs: BRE 358 pete ; 0374 
18 OF FB OOIES CALLS” #1. SECORITY HANDLER 
00006 CF > 49 ott 1$: BRB 358 wn : 0382 
16 AE OF 0 1S eee tea batts “HANDLER * 9329 
ees 08 17 OO1FS 338: BRE 338 ; 039% 
BOF BOOTED CALLS) ONKRDEING HANDLER : 0206 
00006 CF refs 3 209 358: GRY TS : 0398 
4 00 


i 
; Routine Size: 518 bytes, Routine Base: $CODES + 0000 


! End of OPCOMMAIN 
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PSECT SUMMARY 

Name Bytes Attributes 
SGLOBALS 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 60 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 518 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
eocewnne= Symbols -<------- Pages Processing 

File Total Loaded Percent Mapped Time 
_$255$DUA + CSYSLIBJLIB8.L32;1 18619 36 0 1099 00:01.8 
_5255$DUA28 : COPCOM. OBJ JOPCOMLIB.L32;1 633 20 3 4 00:00.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:OPCOMMAIN/OBJ=0BJ$:OPCOMMAIN MSRC$:OPCOMMAIN/UPDATE=(ENHS: OPCOMMAIN) 


; ogy Pe 518 sods + 64 data bytes 
Slesced Time: 09: 35.0 


Lines/CPU 1396 
Lenenes/CPU-Rin: 115 


Used: 180 pages 


meee Benny Complete 
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